home *** CD-ROM | disk | FTP | other *** search
/ Red Eye Press Kit / Red Eye Press Kit.iso / pc / main.dxr / SCRIPTS_35_backNext (Previews).ls < prev    next >
Encoding:
Text File  |  2005-07-18  |  883 b   |  37 lines
  1. property backNext
  2. global imageOrder, previewImage
  3.  
  4. on getPropertyDescriptionList
  5.   description = [:]
  6.   addProp(description, #backNext, [#default: EMPTY, #format: #string, #comment: "back or next:", #range: ["BACK", "NEXT"]])
  7.   return description
  8. end
  9.  
  10. on beginSprite me
  11.   case backNext of
  12.     "BACK":
  13.       backNext = -1
  14.     "NEXT":
  15.       backNext = 1
  16.   end case
  17. end
  18.  
  19. on mouseUp me
  20.   imageNumber = imageOrder.getPos(previewImage)
  21.   if backNext > 0 then
  22.     if (imageNumber + backNext) > imageOrder.count then
  23.       previewImage = imageOrder[1]
  24.     else
  25.       previewImage = imageOrder[imageNumber + backNext]
  26.     end if
  27.   else
  28.     if (imageNumber + backNext) < 1 then
  29.       previewImage = imageOrder[imageOrder.count]
  30.     else
  31.       previewImage = imageOrder[imageNumber + backNext]
  32.     end if
  33.   end if
  34.   sendAllSprites(#updatePreview, previewImage)
  35.   sendAllSprites(#updateSave)
  36. end
  37.